(define-module (grump chem air)
  #:use-module (grump chem))

(define-elements
  (nitrogen N  14.007)
  (oxygen   O  15.999)
  (argon    Ar 39.95)
  (carbon   C  12.011)
  (neon     Ne 20.180)
  (helium   He 4.0026)
  (krypton  Kr 83.798)
  (hydrogen H  1.008)
  (xenon    Xe 131.29))

(define-compounds
  (nitrogen-gas    nitrogen nitrogen)
  (oxygen-gas      oxygen oxygen)
  (carbon-dioxide  carbon oxygen oxygen)
  (methane         carbon hydrogen hydrogen hydrogen hydrogen)
  (hydrogen-gas    hydrogen hydrogen)
  (nitrous-oxide   nitrogen nitrogen oxygen)
  (carbon-monoxide carbon oxygen))

(define-mixture dry-air
  (780818 nitrogen-gas)
  (209435 oxygen-gas)
  (9332   argon)
  (385    carbon-dioxide)
  (18.2   neon)
  (5.2    helium)
  (1.5    methane)
  (1.1    krypton)
  (0.5    hydrogen-gas)
  (0.3    nitrous-oxide)
  (0.2    carbon-monoxide)
  (0.1    xenon)
  ;;(2.9) ; trace
  )
